home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 3 / Info_Mac_1994-01.iso / Applications / ARTAbrot 1.0 / ComUtil_ARTAbrot.c < prev    next >
Text File  |  1993-08-23  |  16KB  |  405 lines
  1. /*   ComUtil_ARTAbrot                            Common */
  2.  
  3. /* Name:  ComUtil_ARTAbrot.c */
  4. /* History: 8/18/93 Original by George Warner */
  5.  
  6.  
  7. #include "ComUtil_ARTAbrot.h"    /* Common */
  8. #include "SysEqu.h"    /* System equates */
  9. /* ======================================================= */
  10.  
  11. Boolean    Doing_MovableModal;                        /* For Movable Modal dialogs */
  12. UserEventHRec    UserEventList;                    /* User Event record list start */
  13. EventRecord    myEvent;                            /* Event record for all events */
  14. Boolean    WNE;                                    /* WaitNextEvent trap is available */
  15. short    SleepValue;                                /* Sleep value for Wait on events */
  16. Boolean    doneFlag;                                /* Exit program flag */
  17. TEHandle    theInput;                                /* Used in text edit selections */
  18. Rect    tempRect;                                    /* Temporary rect, not for long term use */
  19. Str255    sTemp;                                    /* Temporary string, not for long term use */
  20. Boolean        HasColorQD;                            /* Flag for Color QuickDraw being available */
  21. Boolean        HasFPU;                                /* Flag for Floating Point Math Chip being available */
  22. Boolean        HoldOffUserEvents;                    /* Flag for holding off UserEvents */
  23. Boolean        InTheForeground;                    /* Flag for running in MultiFinder foreground */
  24. short        tempChar;                                /* Temporary use character */
  25. long        LTemp;                                    /* Temporary use long variable */
  26. RGBColor        Black_ForeColor,White_BackColor;    /* Standard colors */
  27.  
  28. SFTypeList    typeList;                            /* For use in opening files */
  29. OSErr        ErrorCode;                            /* For use in reading and writing files */
  30. SFReply    Reply;                                    /* For use in getting file names */
  31. StandardFileReply    theStandardFileReply;            /* For use in getting file names */
  32. short    inputRefNum;                                /* For the input file */
  33. short    outputRefNum;                                /* For the output file */
  34. Str255 inputFileName;                                /* For the input file */
  35. Str255 outputFileName;                                /* For the output file */
  36.  
  37. RgnHandle    cursorRgn;                            /* Cursor region for WaitNextEvent */
  38. Boolean        HasAppleEvents;                        /* Whether AppleEvents are available */
  39. Boolean        HasAliasMgr;                        /* Whether AliasMgr is available */
  40. Boolean        HasEditionMgr;                        /* Whether EditionMgr is available */
  41. short        ReplyMode;                            /* Reply mode for AppleEvents */
  42. Boolean        HasNewStdFile;                        /* Whether HasNewStdFile is available */
  43. Boolean        HasPPCToolbox;                        /* Whether PPCToolbox is available */
  44. Boolean        Has32BitQuickDraw;                    /* Whether 32Bit QuickDraw is available */
  45. Boolean        HasGestalt;                            /* Whether Gestalt is available */
  46.  
  47. THPrint    hPrint;                                    /* Printer record */
  48. Boolean    PrinterIsOpen;                            /* Whether printer is open or not */
  49. short    PageCount;                                /* For adding in page number */
  50. short    LineCount;                                /* For printing */
  51. short    PrinterVRes,PrinterHRes;                    /* Printer resolution */
  52. short    MaxPrintCharacters;                        /* Max characters on one line */
  53. short    MaxLines;                                    /* Maximum lines in one page */
  54. TPPrPort        pPrPort;                            /* Printer port */
  55. TPrStatus        prStatus;                            /* Printing status */
  56. short    CopyCount;                                /* Number of copies to do */
  57.  
  58. MenuHandle    Menu_Apple;                            /* Menu handle */
  59. MenuHandle    Menu_File;                            /* Menu handle */
  60. MenuHandle    Menu_Commands;                        /* Menu handle */
  61.  
  62. /* Window variables for the window titled  "ARTAbrot" */
  63. WindowPtr    WPtr_ARTAbrot;                        /* Window pointer */
  64.  
  65. /* Variables for the modeless dialog titled  "About ARTAbrot" */
  66. WindowPtr    WPtr_About_ARTAbrot;                    /* Modeless Dialog window pointer */
  67.  
  68. /* Variables for the alert titled  "Alert" */
  69.  
  70. /* Variables for the modeless dialog titled  "Enter Coordinates" */
  71. WindowPtr    WPtr_Enter_Coordinat;                    /* Modeless Dialog window pointer */
  72. Rect    DTE_Rect_Edit_Text4;                        /* ...Edit text rect */
  73. Rect    DTE_Rect_Edit_Text3;                        /* ...Edit text rect */
  74. Rect    DTE_Rect_Edit_Text2;                        /* ...Edit text rect */
  75. Rect    DTE_Rect_Edit_Text;                        /* ...Edit text rect */
  76.  
  77.  
  78. /* Mandelbrot coordinates. */
  79. float    fxcenter = 0.0;    /* X center of fractal. */
  80. float    fycenter = 0.0;    /* Y center of fractal. */
  81. float    fwidth = 4.0;        /* Width of fractal. */
  82. int        fiters = 128;    /* Maximum number of iterations. */
  83. int        new_coordinates = TRUE;
  84.  
  85.  
  86. /* Prototypes */
  87.  
  88. /* Handle an activate of the window */
  89. void DoActivate(void);
  90.  
  91. /* See if WaitNextEvent is available */
  92. Boolean IsWNEIsImplemented(void);
  93.  
  94. /* Check for user events */
  95. void Handle_User_Event(void);
  96.  
  97. /* Handle a hit in the window */
  98. void DoInContent(WindowPtr whichWindow,EventRecord *myEvent);
  99.  
  100. #define    fnfErr        -43
  101.  
  102. /* ======================================================= */
  103.  
  104.  
  105. /* Routine: PStrCopy */
  106. /* Purpose: Copy Pascal strings */
  107.  
  108. void PStrCopy(Str255 *SourceString, Str255 *DestString)/* Copy Pascal strings */
  109. {
  110.  
  111. *DestString[0] = *SourceString[0];                    /* Get the string size */
  112. if (*DestString[0] != 0)                            /* Do if there is anything in the string */
  113.     BlockMove(SourceString,DestString,*DestString[0]+1);
  114. }
  115.  
  116. /* ======================================================= */
  117.  
  118. /* Routine: PStrCat */
  119. /* Purpose: Concat Pascal strings */
  120.  
  121. void PStrCat(Str255 *SourceString, Str255 *DestString)/* Concat Pascal strings */
  122. {
  123. short    OldDestLength,NewDestLength,SizeFromSource;
  124.  
  125. OldDestLength = *DestString[0];                    /* Get the string old length */
  126. SizeFromSource = *SourceString[0];                    /* Get the source length */
  127. NewDestLength = OldDestLength + SizeFromSource;    /* Get the string new length */
  128. if (NewDestLength > 255)                            /* Compare to length of the final string */
  129.     {
  130.     NewDestLength = 255;                            /* The string final length */
  131.     SizeFromSource = 255 - OldDestLength;            /* The string final length */
  132.     }                                            /* End of IF */
  133. *DestString[0] = NewDestLength;                    /* Set the string length */
  134. if (SizeFromSource > 0)                            /* Do if there is anything in the string */
  135.     BlockMove((Ptr)((long)SourceString + 1L),(Ptr)((long)DestString+OldDestLength+1L),SizeFromSource);
  136. }
  137.  
  138. /* ======================================================= */
  139.  
  140. /* Routine: PStrCmp */
  141. /* Purpose: Compare Pascal strings for exact match, case sensitive */
  142.  
  143. Boolean PStrCmp(StringPtr Source1String,StringPtr Source2String)/* Compare Pascal strings */
  144. {
  145. short        theLength,Index;
  146. Boolean        theSame;
  147.  
  148.     theSame = false;                                    /* Init to different */
  149.     theLength = *Source1String++;                        /* Get length of one string */
  150.     if (theLength == *Source2String++)                    /* Compare to length of other string, easy and quick check */
  151.     {
  152.         theSame = true;                                /* Init to same, now we will check each character */
  153.         for (Index=1; Index <= theLength; Index++)        /* Compare to length of other string, easy and quick check */
  154.         {
  155.             if (*Source1String++ != *Source2String++)    /* See if this character is the same */
  156.             {
  157.                 theSame = false;                        /* Different */
  158.             }                                    /* End of IF */
  159.         }                                        /* End of IF */
  160.     }                                            /* End of IF */
  161.     return(theSame);
  162. }
  163.  
  164. /* ======================================================= */
  165.  
  166. /* Routine: CheckTrapAvailable */
  167. /* Purpose: See if trap is available, non-available traps all have a unique address */
  168.  
  169. Boolean CheckTrapAvailable (short trapNumber,short tType)/* See if a trap is available */
  170. {
  171. #define UnimplementedTrapNumber     0xA89F            /* Unimplemented trap number */
  172. Boolean    theResult;
  173.  
  174. theResult = (NGetTrapAddress(trapNumber, tType) != GetTrapAddress(UnimplementedTrapNumber));/* Check the two traps */
  175. return(theResult);
  176. }
  177.  
  178. /* ======================================================= */
  179.  
  180. /* Routine: GetUserEvent */
  181. /* Purpose: See if any user events are available */
  182.  
  183. void GetUserEvent(UserEventPRec TheUserEvent)
  184. { 
  185. UserEventHRec    NextUserEvent;                    /* The next user event */
  186.  
  187. TheUserEvent->ID = UserEvent_None;                    /* Set ID to no events are available */
  188. if (UserEventList != NIL)                            /* Get first entry in the list */
  189.     {
  190.     HLock((Handle)UserEventList);                    /* Lock for safety */
  191.     TheUserEvent->ID = (*UserEventList)->ID;        /* The event ID */
  192.     TheUserEvent->ID2 = (*UserEventList)->ID2;        /* The optional ID */
  193.     TheUserEvent->Data1 = (*UserEventList)->Data1;/* The optional data */
  194.     TheUserEvent->Data2 = (*UserEventList)->Data2;/* The optional data */
  195.     TheUserEvent->theHandle = (*UserEventList)->theHandle;/* The optional handle */
  196.     NextUserEvent = (*UserEventList)->Next;        /* The next list */
  197.  
  198.     DisposHandle((Handle)UserEventList);            /* Remove this list item */
  199.     UserEventList = NextUserEvent;                    /* Make the next item the new first item */
  200.     }                                            /* End of IF */
  201. }
  202.  
  203. /* ======================================================= */
  204.  
  205. /* Routine: Add_UserEvent */
  206. /* Purpose: Add a user event */
  207.  
  208. void Add_UserEvent(short ID1,short  ID2,long Data1,long Data2,Handle  theHandle)
  209. { 
  210. UserEventHRec    NewUserEvent;                        /* The new user event */
  211. UserEventHRec    theUserEvent;                        /* The user event */
  212.  
  213. NewUserEvent = (UserEventHRec)NewHandle(sizeof(UserEventRec));/* Allocate a record */
  214. if (NewUserEvent != NIL)                            /* Only do if we got the new record */
  215.     {
  216.     HLock((Handle)NewUserEvent);                    /* Lock for safety */
  217.     (*NewUserEvent)->ID = ID1;                        /* The event ID */
  218.     (*NewUserEvent)->ID2 = ID2;                    /* The optional ID */
  219.     (*NewUserEvent)->Data1 = Data1;                /* The optional data */
  220.     (*NewUserEvent)->Data2 = Data2;                /* The optional data */
  221.     (*NewUserEvent)->theHandle = theHandle;        /* The optional handle */
  222.     (*NewUserEvent)->Next = NIL;                    /* No next item after this one */
  223.  
  224.     if (UserEventList == NIL)                        /* See if anyone is in the list yet */
  225.         {
  226.         UserEventList = NewUserEvent;                /* Make this one the first in the list */
  227.         }
  228.     else
  229.         {
  230.         theUserEvent = UserEventList;                /* Get the first one */
  231.         while ((*theUserEvent)->Next != NIL)        /* Get the next one */
  232.             {
  233.             theUserEvent = (*theUserEvent)->Next;
  234.             }
  235.         (*theUserEvent)->Next = NewUserEvent;        /* Tack on to the end */
  236.         }                                        /* End of IF */
  237.     }                                            /* End of IF */
  238. }
  239.  
  240. /* ======================================================= */
  241.  
  242. /* Routine: Play_The_Sound */
  243. /* Purpose: Play my sound */
  244.  
  245. void Play_The_Sound(short ResID)
  246. { 
  247. Handle    ResHandle;                                /* The sound resource handle */
  248. short    SndResourceID;                            /* Sound resource ID */
  249. Str255    SndName;                                    /* Sound name*/
  250. ResType    theType;                                /* Resource type */
  251. OSErr    MyErr;                                    /* Error flag */
  252.  
  253. ResHandle = Get1Resource('snd ', ResID);            /* See if the resource is out there */
  254. if (ResHandle != NIL)                                /* Only do if we got the sound */
  255.     {
  256.     GetResInfo(ResHandle, &SndResourceID, &theType, &SndName);
  257.     MyErr = SndPlay(NIL, ResHandle, FALSE);
  258.     ReleaseResource(ResHandle);
  259.     }                                            /* End of IF */
  260. }
  261.  
  262. /* ======================================================= */
  263.  
  264. /* Routine: Get_TE_String */
  265. /* Purpose: This is a routine used to get a string from a TE area, limited to 250 characters */
  266.  
  267. void Get_TE_String(TEHandle theTEArea,Str255 *theString)
  268. { 
  269. short Index;                                        /* Use to loop thru the characters */
  270. short TitleLength;                                    /* Number of characters to do */
  271. CharsHandle theCharsHandle;                        /* Used to get global edit text */
  272. Ptr theStringPtr;                                    /* Pointer to the string, byte level */
  273. Ptr theTECharPtr;                                    /* Pointer to the string, byte level */
  274.  
  275. theCharsHandle = TEGetText(theTEArea);                /* Get the character handle */
  276. HLock ( ( Handle ) theCharsHandle );                /* Lock it for safety */
  277. theTECharPtr = (Ptr)*theCharsHandle;                /* Get string Ptr */
  278. TitleLength = (*theTEArea)->teLength;                /* Get the number of characters */
  279. *theString[0] = 0;                                    /* Start with an empty string */
  280. if (TitleLength > 0) 
  281.     {
  282.     theStringPtr = (Ptr)((long)theString + (long)1);/* Start of the string data */
  283.     if (TitleLength > 250) 
  284.         TitleLength = 250;
  285.     for (Index = 0; Index < TitleLength; Index++)
  286.         *theStringPtr++ = (char)(*theTECharPtr++);
  287.     *theString[0] = TitleLength;
  288.     }                                            /* End of IF */
  289. }
  290.  
  291. /* ======================================================= */
  292.  
  293. /* Routine: Make_TE_Area */
  294. /* Purpose: This is a routine used to create a TE area */
  295.  
  296. void Make_TE_Area(TEHandle *theTEArea,Rect *Position,short theFontSize,short theFont,short DefaultStringID)
  297. {
  298. FontInfo    ThisFontInfo;                            /* Use to get the font data */
  299.  
  300. TextSize(theFontSize);                                /* Set the size */
  301. TextFont(theFont);                                    /* Set the font */
  302. GetFontInfo(&ThisFontInfo);                        /* Get Ascent height for positioning */
  303. TextSize(12);                                        /* Restore the size */
  304. TextFont(applFont);                                /* Restore the font */
  305.  
  306. tempRect = *Position;                                /* Get the rect */
  307. FrameRect(&tempRect);                                /* Frame this TE area */
  308. InsetRect(&tempRect, 3, 3);                        /* Indent for TE inside of box */
  309. *theTEArea = TENew(&tempRect, &tempRect);            /* Create the TE area */
  310. if (theInput != NIL)                                /* See if there is already a TE area */
  311.     TEDeactivate(theInput);                    /* Yes, so turn it off */
  312.  
  313. theInput = *theTEArea;                                /* Activate the TE area */
  314. HLock((Handle)*theTEArea);                            /* Lock the handle before using it */
  315. (**theTEArea)->txFont = theFont;                    /* Font to use for the TE area */
  316. (**theTEArea)->fontAscent = ThisFontInfo.ascent;    /* Font ascent */
  317. (**theTEArea)->lineHeight = ThisFontInfo.ascent + ThisFontInfo.descent + ThisFontInfo.leading;/* Font ascent + descent + leading */
  318. HUnlock((Handle)*theTEArea);                        /* UnLock the handle when done */
  319. GetIndString(sTemp, DefaultStringID, 1);            /* Get the default string */
  320. TESetText(&sTemp[1], sTemp[0], theInput);            /* Place default text in the TE area */
  321. TEActivate(theInput);                                /* Make the TE area active */
  322. }
  323.  
  324. /* ======================================================= */
  325.  
  326. /* Routine: SetupTheItem */
  327. /* Purpose: Setup a dialog or alert item */
  328.  
  329. void SetupTheItem(DialogPtr theDialog,short ItemID,Boolean SizeIt,Boolean ShowIt,
  330. Boolean EnableIt,Boolean SetTheMax,Rect *thePosition,long ExtraData,short StringID)
  331. {
  332. Rect        tempRect;                            /* Temporary rectangle */
  333. short    DType;                                    /* Type of dialog item */
  334. Handle    DItem;                                    /* Handle to the dialog item */
  335. ControlHandle    CItem;                            /* Control handle */
  336.  
  337.     GetDItem(theDialog,ItemID,&DType,&DItem,&tempRect);/* Get the item handle and size */
  338.     CItem = (ControlHandle)DItem;                /* Change to control handle */
  339.     if (SizeIt)                                    /* Have to resize all CDEF connected controls */
  340.         SizeControl(CItem, tempRect.right-tempRect.left, tempRect.bottom-tempRect.top);/* Size it */
  341.     *thePosition = tempRect;                    /* Pass back the zone location and size */
  342.     if (ExtraData != NIL)                        /* See if extra data for a CDEF */
  343.         (*CItem)->contrlData = (Handle)ExtraData;    /* Send it */
  344.     if (StringID != 0) {                        /* See if a CDEF and needs the title set again*/
  345.         GetIndString(sTemp,StringID,1);            /* Get the string */
  346.         SetCTitle(CItem,sTemp);                    /* Set the string */
  347.     }
  348.     if (EnableIt)                                /* See if enable or disable the zone */
  349.         HiliteControl (CItem,0);                /* Enable the zone */
  350.     else
  351.         HiliteControl (CItem,255);                /* Dim the zone */
  352.         if (SetTheMax)
  353.     SetCtlMax(CItem,12345);                        /* Set the flag to the CDEF */
  354.     if (ShowIt)
  355.         ShowControl(CItem);                        /* Show it to activate it */
  356. }
  357.  
  358. /* ======================================================= */
  359.  
  360. /* Routine: CenterOnColorScreen */
  361. /* Purpose: Center a window onto the deepest color screen */
  362.  
  363. void CenterOnColorScreen (WindowPtr theWindow )
  364. {
  365. Rect        tempRect,gdRect,temp2Rect;                /* Temporary rectangle */
  366. GDHandle    theDevice;                                /* Graphic device */
  367.  
  368. if (theWindow != NIL) {    /* Make sure it is safe to go ahead */
  369.     SetRect(&tempRect,-32000,-32000,32000,32000);    /* Look in all directions */
  370.     theDevice = GetMaxDevice(&tempRect);            /* Get the deepest device */
  371.  
  372.     if (theDevice != NIL)                            /* Make sure we got a device */
  373.         {
  374.         gdRect = (*theDevice)->gdRect;                /* Get the device rect */
  375.         temp2Rect = theWindow->portRect;            /* Get the window rect */
  376.  
  377.         tempRect.top = gdRect.top + ((gdRect.bottom-gdRect.top)/2) - ((temp2Rect.bottom-temp2Rect.top)/2);
  378.         tempRect.left = gdRect.left + ((gdRect.right-gdRect.left)/2) - ((temp2Rect.right-temp2Rect.left)/2);
  379.         MoveWindow(theWindow, tempRect.left, tempRect.top, TRUE);/* Move the window*/
  380.         SetPort(theWindow);                         /* Prepare to write into our window */
  381.         }                                        /* End of IF */
  382.     }                                            /* End of IF */
  383. }
  384.  
  385. /* ======================================================= */
  386.  
  387. /* Routine: GetDeepestColorScreenRect */
  388. /* Purpose: Get the deepest color screen rect */
  389.  
  390. void GetDeepestColorScreenRect(Rect *DeepRect )
  391. {
  392. Rect        tempRect;                        /* Temporary rectangle */
  393. GDHandle    theDevice;                        /* Graphic device */
  394.  
  395.     *DeepRect = qd.screenBits.bounds;        /* Default to the main screen */
  396.     theDevice = NIL;                        /* Default to no device */
  397.     SetRect(&tempRect,-32000,-32000,32000,32000);    /* Look in all directions */
  398.     theDevice = GetMaxDevice(&tempRect);    /* Get the deepest device */
  399.  
  400.     if (theDevice != NIL) {                    /* Make sure we got a device */
  401.         *DeepRect = (*theDevice)->gdRect;    /* Get the device rect */
  402.     }
  403. }
  404. /* ======================================================= */
  405.